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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX=11 MACRO assembler trans 
modules for input to the VAX-11 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 24-AUG-78 
MODIFIED BY: 

vO3.01 MTROO16 Mike Rhodes 07-Jun-1982 


etes MACRO-32 source code into object 


l 
LINKER. 


corre . a@ problem where the .NOSHOW MD directive caused 

the Listing to lose the invocation Lines or other assorted 

parts when there were no macros explicitly defined in the 

progres text and the macros were being defined from a Library. 
lso included are fixes for broken branch destinations. 


v02.17 MTROOO1 Mike Rhodes 09-Nov-1981 
sds default name descriptor use in opening the system 
Library STARLET. 


v02.16 PCG0007 é George 20-Aug-1981 
Report .LIBRARY errors in Listing and with exit status. 
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3g : v01.15 RNOO23 R. Newland 3-Nov-1979 
9 ; New message codes to oe error messages from system 
: message file. 
8 : v01.14 RNOO11 Newland 11-Sep-1979 
rt: ; New Librarian jamdeat 
66 : vO1.11 004 B. Schreiber — 10-JAN-1979 
67 ; Correct “illegal block size’ error if ners library 
68 ; has MNT entries allocated but m" used 
5 : iets oP r_index nunbe? of +4 ie grate tae, on set 
3 up. 
71 : vO1.13  RNOOO3 eulane Tbe eb-1979 . 
if : attend initial aehuee J macro eras: binary 
0 f3 3 chop routine 
0000 74 :-- 
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-SEP=1 
.SBTTL DECLARATIONS 
+ INCLUDE FILES: 


4 ACRO.SRCJMACLIB.MAR; 1 


; MACROS: 

SMAC_CTLFLGDEF ;DEFINE CONTROL FLAGS 

SMAC_GRAMMARDEF ;DEFINE TERMINAL GRAMMAR SYMBOLS 
_MLFDEF ;_ Define MLF offsets 

SMAC_GENVALDEF ;DEFINE GENERAL VALUES 

SMAC_INTCODDEF sDEFINE INT. FILE COD 

SMAC_SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 

SNAMBEF ;DEFINE NAM OFFSETS 

SRABDEF ;DEFINE RAB OFFSETS 

SRMEDEF ;DEFINE RME 

$F ABDEF ;DEFINE FAB OFFSETS 

SMACMSGDEF ; Define message codes 


: LOCAL DATA 


-PSECT MACSRO_DATA,NOEXE ,NOWRT,GBL,LONG 


MLF_ARGLIST: 
SARGLST 2,MLF_SIZE,MACSGL_BASEADDR 


MLF_SIZE: 
-LONG MLFSK_BLKSIZ 
-PSECT MACSRW_DATA,NOEXE,LONG 

MACSTMPSYMDS: 5 cone 2 descriptor (used for 
-LONG 0,MACSAB_TMPSYM+1 ; LBRSLOOKUP_KEY calls) 


| $$ “DOO DGDDOO0COO 00000000 O00 000900000000 090008 III 
PUN — OOONA UE WIN SO OD NAN E WN 0 OONOAUE WO OONO 


—) a 2 2 ss a as 


.PSECT MACSRO_CODE_MAC,NOWRT,GBL,LONG 
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138 »SBTTL MCALL EXPLICIT MACRO CALL ROUTINE 
118 :+ 
3* 
118 ; FUNCTIONAL DESCRIPTION: 
121 ; THIS ROUTINE IS CALLED WHEN THE .MCALL DIRECTIVE IS FOUND. 
1 § ; ANY MACRO NAMES FOLLOWING THE DIRECTIVE THAT ARE NOT DEFINED 
8 8 ! ? 3 ARE DEFINED BY DOING IMPLICIT MACRO CALLS ON THEM. 
0 ! 5 ;-- 
6 1 : MCALL:: sDIRECITVE = KMCAL 
50 Q000'CF 9 C3 1 8 SUBL3 #1,W*MACSGL ob Aner. RO ;SET UP ERROR POINTER 
0000° CF 0 be 006 1 MOVL RO, yo eseen ~ERRPT Jace 
preg 0 9008 130 BSBW MACSSYMS [SCAN A MACRO NAME 
08 5 E OOE 131 BLBS RO,1 ;BRANCH IF WE FOUND ONE 
Bote 1 ¢ SMAC_ERR DIRSYNX ; Else directive syntax error 
FFE7® 31 16 1 BRW MACSERRORPT ; ISSUE ERROR TURN 
53 0000'CF 3 0019 134 10$: MOVAB W*MACSAL_UMCHSHTB,R3 ;LOOK UP at IN MACRO HASH TABLE 
FFDF® 30 OQO1E 135 BSBW MACSSRCSYMTAB s1F IT IS THERE WE CAN SAVE SOME TIME 
OF 50 E€8 0021 1 § BLBS R ;BRANCH IF FOUND 
4 10 bo 4 1 BSBB mac IMPLMCALL :NO--DO AN wt, le MACRO CALL 
0D 8 01 026 138 CMPL RB ,#MACTXT 3D1D WE FIND IT? 
08 13 0029 139 BEQL 2 IF EQL YES 
8 B 140 SMAC_ERR CANTLOCMAC ; No=-set message code 
FFCD* 3 0 ° 141 BSBW MACSERRORPT s ISSUE MESSAGE TO PASS 2 
FFCA* 0 00 146 20S: BSBW ed Vie 3SKIP SPACES 
2c SA 91 036 14 CMPB R10,#*A/,/ 3;STOP ON A COMMA? 
06 15 8 9 144 BNEQ 0$ 3 1F NEQ NO 
FFC2° ; B 145 BSBW MACSGETCHR sYES=--SKIP IT 
FFBF* 0 OO3E 123 BSBW MACSSKIPSP ;THEN SKIP SPACE 
0D SA 91 0041 147 30$: CMPB R10,#CR 3GET TO EOL? 
BA ig 0044 148 BNEQ MCALL 31F NEQ NO--KEEP GOING 
05 0046 149 RSB sYES--MCALL IS DONE 


, F 
MACSMACLIB MACRO LIBRARY PROCESSOR SEP=1984 AX/VMS Macro V04-00 Page 
y0%~008 MACSIMPLMCALL IMPLICIT MACRO CALL ROUTIN ot Fh bf: tf $3 YRACRO. SRe MACLIB.MAR;1 . 
rt } ~SBTTL MACSIMPLMCALL IMPLICIT MACRO CALL ROUTINE 
47 155 344 
bee ! ? ; FUNCTIONAL DESCRIPTION: 
47 1 gi $ THIS ROUTINE ie y(t i EITHER BY ‘MCALL'’ OR BY THE MACSSYMBOL 
or 4 : ROUTINE W yee UNIDENTIFIED NAME IS DETECTED. THE IN-CO 
47 158 : INDICES OF tN ENO WN'’ MACRO LIBRARIES ARE SEARCHED STARTING 
bes 123 ; WITH THE Last’ ONE SPECIFIED. THE FOLLOWING METHOD IS USED 
047 #161 : 1) THE IN-CORE INDEX OF EACH MLB IS SEARCHED USING 
bes 196 3 A MATCHC INSTRUCTION. IF THE NAME IS FOUND, THE 
Baes 197 3 ; MLB IS OPENED AND THE MACRO IS DEFINED. 
0047 165 : 2) IF THE NAME IS NOT FOUND IN ANY OF THE MACRO 
0047 196 ; LIBRARIES, A TOKEN OF ‘'ERRO3’’ IS RETURNED. 
0047 167; 
0047 168 ;-- 
0047 19 
Bpee 170 MACSIMPLMCALL:: 
DD 0047 #171 PUSHL 7 sSAVE R7 
56 0000' CF 9E 0049 \v¢ MOVAB W*MACSAB_TMPSYM,R6 :POINT TO THE _ WE ARE LOOKING FOR 
0000' CF 98 ones 17 MOVZBW (R6),W°MACSTMPSYMDS : Set up descriptor for macro name 
57 0000' CF Boe We MOVAB W*MACSGL _MLB_QUE ,R7 ‘POINT O MLB é: —E HEADER 
0038 176 NEXT_MLB: 
57 67 et) 05 17 MOV (R7) ,R7 ;LINK TO NEXT MLB FDB 
00000000'8F 57 OD! 828 178 CMPL R7 ,#MACSGL_MLB_ QUE ARE WE DONE? 
07 12 0062 179 BNEQ 108 7 IF NEQ NO 
57 sep? 064 130 POPL R7 7 YES=-RESTORE R7 
58 03 D 0067 181 MOVL #ERROS,RS ;RETURN ERROR TOKEN 
05 006A tt RSB 
0068 1s : 
0068 184 : Call Librarian procedure to look up macro name 
try 13 
068 186 10s: 
OOOO'CF OF Boer 187 PUSHAB W*MACSGL_TXTRFA 3; Address to store text RFA 
0000'CF 9F oer 133 PUSHAB W*MACSTMPSYMDS ; Address of name descriptor 
14 A? OF 3.0 Ss«189 PUSHAB es CTINDEX(R7) : Address of control table index 
00000000 ° GF 93 FB 0076 190 CALLS ECB RSLOOK KUP_KEY : Look-up macro name 
d8 9 E9 007D 191 BLBC RO NE 3; Not found if LBC 
OOOO'cF 5 DO 44 135 MOVL R WEMACSEL _MLFPTR : Save MLF Ak 
FF78" 30 8 3 194 BSBW MACSALL_1_PAGE yt tap 3 Rill PAGE 
5 ry 195 PUSH R oe TR AD Ess 
60 0000° fF BOS OF 8F 8 A 138 MOVC #LST$K_BUFSIZ,W*MACSAB _LINEB , (RO) OP OBY CURRENT LINE OUT 
re ke DO § 19 MOVL Parte: LINENUM, (R3)+~ tT CURR EN NT STAT 
83 68 OF FFFEE F cB 9 138 BICL3 #* <FtG a _CONT>, (R 11),(R3)+ SAVE Re rH STATE 
D 9F 19 MOVL (R3) +" ;SAVE CURRENT CHARACTER 
gs O00'CF OD A 0 MOVL we ACSGL_LINEPT. (R3)+ 7SAVE LINE POINTER 
000° CF A 1 MOVL W*MACSGL_LINELN, (R35)+ SAVE LINE Pg 
FFS1° AC § BSBW MACSALL_T_PAGE ;ALLOCATE AN INPUT a hone 
60 0000'CF dO AF MOVL UARACSCE INPUTP, (RO) [LINK TO LAST INPUT BLOCK 
0000° CF 8 DE B4 4 MOVAL (RO) +,W*RMACSGL_ {NPUTP ; MAK E NEW BL oo CURRENT BLOCK 
Be 9 5 CLRL + LEAR TEXT LIN 
80 O17F'CF E ee $ MOVAB W*MACSGET_MLB_LIN,(RO)+ SET NEW LINE ROUTINE 


5 
(4) 
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y05~000 MACSIMPLMCALL IMPLICIT MACRO CALL ROUTIN ott 7 g 055883 ERACRO. SRE MACLIB.MAR; 1 - wD Ta 
¢ 08 THE REST OF THE INPUT BLOCK IS NOT USED. HENCE IT IS NOT INITIALIZED. 
SA 0D) CO9AsC(00E 10 MOVZBL #CR,R10 sORCE READING OF NEW LINE 
FRSA‘ ¢ 1 BSBW  MACSGETCHR [GET FIRST CHARACTER OF MACRO 
FF37" ¢ 19 BSBW MACSSYMSCNUP ‘SCAN FIRST SYMBO 
0 g C 1 BLBS RO +. : Branch if sysbo wee Ly = 2 
OA CC 214 W MAC_L : ELSE If not found t 
53 soe CF 13 208: MOVAB Agri i »R3 SLOOK IN PERMANENT sHMBOL® TABLE 
03 2 3 i$ BLBS RO, 30$ : “Branch if symbol was found 
009 1 Q0DC 18 BRW MAC LIB ; ELSE, If not fgund then error 
50 8F 0B Al 4 ODF 19 30$: cHPe syns FOKENTRID. AKMACRO zWAS it". -MACRO'' 
: es. 
0088 31 00g 321 BRU OMAC_LIBLF : If NEG ho == bad Library 
00000005'GF dD OE é 40S: PUSHL G*LST$G~ RACRODEF sm VAL 7 SAVE LIME LISTING STATE 
OOOS'CF FF 8F 98 OOEF CVTBL  #-1,W*LST$G_MACRO ODEF PHBL at “ENABLE LISTING MACRO DEF's. 
OOF 5 4 SINTOUT _Lw TAs SETLONG,- att THE (pOSs16LE) SWITCH. 
OF 5 <G*L ST$G_MACRODEF +SYMSL ua UELSTSG MA RODEF+SYMSL_VAL> ;...1O PASS 
FEF6" 30 B10¢ § BSBW MACRO : Define the AAChD 
O18 8 : NOW RESTORE THINGS TO PRE-MLB READING STATE 
00000005'GF 8EDO 010A 0 POPL — G*LSTSG_MACRODEF+SYMSL_VAL ;RETRIEVE THE PRIOR LISTING STATE 
111 31 SINTOUT_LW “INT$_SETLONG,- ; INDICATE THE (POSSIBLE) SWITCH 
0111 : <G*LST$G_MACRODEF +SYMSL_VAL, #LSTSG MACRODEF +SYMSL ‘i .TO PASS 
O000'CF D6 0123 3 INCL woMACSCL MLB_MDF “;COUNT MACRO DEFINED FROM taacho i IBRARY 
08 A? D6 0127 4 INCL MLFSL_MCDEF(R sALSO COUNT IN MLB FDB 
50 O000'CF DO O12A 235 MOVL § W“MACSGL_INPUTP,RO :POINT TO THE INPUT BLOCK 
0000'CF 60 b0 ot F 3% MOVL  (RO),W°MACSGL_INPUTP § :RESTORE LAST INPUT BLOCK 
FEC9" 30 0134 237 BSBW MACSOEA_1_ :DEALLOCATE INPUT BLOCK 
50 6& 00 0137 238 MOVL. (SP),RO GET ADDRESS OF SAVED LINE BLOCK 
Q000'CF 60 0086 af 28 015A 39 MOVC3 aL stéK BUF SIZ, (RO) w°Mac$as LINER sRESTORE INPUT LINE 
0000' CF 81 D 142 40 MOVL (R1)+, Q*MACSGL_ CENENUM :RESTORE LINE NUMBER 
1 DS 014 41 TSTL (R1) CHECK CO ont F LAG 
06 1 g149 4g BEQL 50$ :IF EQL CLEAR IT 
06 68 O03 € 14B 24 BBCS  #FLGS$V_CONT,(R11),60$ ;NO--SET IT 
04 11 O14F 244 BRB 60$ 
00 68 O03 €5 0151 45 50S: BBCC #FLGSV_CONT,(R11),60$ ;CLEAR CONT FLAG 
5A 81 DO 0155 246 60$:  MOVL (R1)+,R1 SRESTORE CURRENT CHARACTER 
0000'CF 1 p00 0158 247 MOVL  (R1)+,WSMACSGL_LINEPT ;RESTORE LINE POINTER 
0000' CF 1 D9 15D 248 MOVL (R1)+,W°MACSGL-LINELN :RESTORE LINE LENGTH 
0 BED 162 49 POPL RO SRESTORE ADDRESS OF SAVE PAGE 
57 BEDO 016 50 POPL 7 TRESTORE R 
58 00 p 168 31 MOVL #MACTXT,RB SRETURN TOKEN FOR MACRO 
FE92° 168 : BSBW MACSDEA’1 PAGE :DEALLOCATE PAGE 
51 0000'CF bd 166 5 MOVL W*MACSGC_MACPTR.R1 ‘RETURN PTR TO MNB IN R1 
05 01 54 RSB SRETU 
hae 
174 8S : MACRO LIBRARY FORMAT ERROR. THE CODE TO REPORT THE ERROR IN PASS 2 
174 958 ; IS EN TIED TO THE INTERMEDIATE FILE, AND THE ASSEMBLY IS TERMINATED. 
174 259 ; PASS 2 IS THEN EXECUTED TO REPORT THE ERRORS. 
174 260 
174 561 AAC _LIB_FMT_ERR: 
174 $6 set ERR MACLBFMTER t the message code 
FE84" 30 179 6 BSB MACSERRORPT ‘REPORT ERROR TO PASS 2 
FE81" 31 O17C 4 Bau” MACSABORT_PASS1 SABORT PAS 
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move 
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~SBTTL MACSGET_MLB_LIN READ LINE FROM MACRO LIBRARY 
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FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED BY MACSGETCHR WHEN IT IS TIME 

READ ANOTHER MACRO DEFINITION LINE FROM A MACRO LIBRARY. 

THE LINE IS PLACED IN THE INPUT BUFFER MACS$AB_LINELN. 

WMACSGL_MLFPTR,R1 ; Get current MLF pointer 

PUSHAB W*MACSGL_LINELN ; Address to store Line Length 
PUSHAB W*MAC$GQ_LINEBFDS ; Address of buffer descriptor 
PUSHAB MLFSL_CTINDEX(R1) : address of control table index 
CALLS #3,G*CBRSGET_RECORD : Get ord 

LBC RO,MAC_LIB_FAT_ERR Sif tat oc HEN ry ERROR 
INCL W*MACSGL_MCB GET * COUNT ANOTHER MLB GET 
MOVL W*MACSGL-LINELN,RO : Get Line Length 

EQL MAC$GET_ALB LIN SSKIP NULL LINES 
MOVAB W*MACSAB_LINEBF,R1 ;POINT toe The LINE BUFFER 
MOVL  R1,W*MACSGL_LINEPT ‘SET UP THE LINE P 
MOVL R1 *W°MACSGL~ ERRPTX ;AND THE ERROR TOKEN POINTER 
MOVE = ACR, (RO) ERTI SSTORE CR AT END OF LIN 
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v04-0 LIBRY PROCESS .LIBRARY DIRECTIVE -SEP=1984 01:48:58 CMACRO.SRCJMACLIB.MAR; 1 (6) 
1B 93 .SBTTL LIBRY PROCESS .LIBRARY DIRECTIVE 
Bs 
18 36 ; FUNCTIONAL DESCRIPTION: 
1B 38 : THIS ROUTINE IS CALLED TO PROCESS THE .LIBRARY DIRECTIVE. 
1B 99 ; THE FILENAME WITHIN THE DELIMITERS IS SCANNED. THE FILE 
1B 00 ; 1S THEN OPENED, AND AN IN-CORE INDEX IS CREATED. THE FOB 
18 01 ; FOR THE NEW MLB IS ‘THEN ADDED TO THE FRONT OF THE MLB QUEUE. 
ea 
1B 5 LIBRY :DIRECTIVE = KLIBRARY 
58 pp 1B8 06 PUSHL R8 SAV 
FEG3' 30 O1BA 30 BSBW  MACSSKIPSP sFIND THE DELIMITER 
0D SA 91 O1BD 308 CMPB  =s- R10, ACR ‘DID WE GET TO END OF LINE? 
07 12 01C0 309 BNEQ 10$ [IF NEQ NO 
Bits 10 5$ SMAC_ERR DIRSYNX 3; Yes-get RROR ANB code 
22 11 O1C 11 BRB 40$ TISSUE ERROR AN RETURN 
56 5A 90 01C9 1 10$ MOVB R10, R6 :COPY THE DELIM 
58 O008'CF 9E O1CC 1 MOVAB W*MACSAB_ TMPBUF +8 ,R8 3; Point to temp Torte to accumalate name 
01D1 14 3_(a Coser iptor will be formed at start) 
68 01 CB 01D1 15 BISL2 #FLGS$M_ALLCHR, (R11) [PASS SEM 1-COLONS IN CASE SOM 
0104 316 : TURKEY PUTS A VERSION NUMBER ON 
0104 317 ‘HIS LIBRARY FILE NA 
FE29" 30 0104 318 20$:  BSBW  #$MACSGETCHR [GET A CHARACTER OF FILENAME 
56 SA 91 0107 319 CMPB ss. R10, R6 SEND OF FILENAME? 
18 13 O1DA 320 BEQL 50$ SIF EQL 
OD SA 91 O1DC 321 CMPB = R10, ACR [BAD ENDING? 
05 13 O1DF 32¢ BEQL  30$ :IF EQGL YES 
88 SA 90 O161 MOVB R10, (R8)+ [NO=-STORE CHAR OF FILENAME 
Ee 11 O14 324 BRB 20$ :CONTINUE LOOPING FOR NAME 
O1E6 326 : HERE IF CR BEFORE DELIMITER 
0166 356 $0$:  $MAC_ERR UNTERMARG ; Set message code 
58 BEDO O1EB 93 40$: POPL sRESTO 
68 01 CA lee 0 BICL2 #FLGSM ALLCHR, (R11) [CLEAR ALLCHR FLA 
FEOC’ 31 oiFi 31 BRW MACSERRORP SISSUE ERROR AND ARE TURN 
O1F4 5 : HERE WHEN DELIMITER SEEN 
68 01 CA Sika 5 50$:  BICL2 #FLGSM_ALLCHR, (R11) :CLEAR ALLCHR FLAG 
FEOG: 30 1F7 6 BSBW  MACSGETCHR :SKIP OVER DELIMITER 
FEO3' 30 OFA BSBW  MACSSKIPSP [SKIP SPACES 
OD SA 91 O1FD 8 CMPB ss R10, #CR :STOP ON EOL? 
CO lg 00 BNEQ & SIF NEQ NO--LOSE 
O00O'CF 58 00000008'8F C Be rk SUBL3 oarret TWMPBUF oR8, 3 fore descriptor to library 
0004"CF 0008"CF 9E 8 i 4¢ NOVAB U*MACSAB_TMPBUF +B, ~ : 
00c5) = 30 + rf: BSBW MACSALL_ALB_MLF : Get memory block for MLF 
16 46 : Call Librarian procedure to initialise Library 
18 A6 OF 18 rh: PUSHAB MLFS$X_NAMBLK(R6) ; Address of NAM block 
QO00'CF OF 1 4 PUSHAB W*MACSGL_LIBTYPE ; Address of type = MLB 
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MACSMACLIB MACRO LIBRARY PROCESSOR 16-SEP-1984 07:45 VAX/VMS Macro v04-00 Page 9 
v04-000 LIBRY PROCESS .LIBRARY DIRECTIVE ety 7 RET MACRO.SRCJMACLIB.MAR;1 . (6) 
OOOO'CF OF 1D 0 PUSHAB W*MACSGL_LIBFUNC 3; Address of function = READ 
14 A6 OF 1 1 eyones " FSL SANDE XLRO) 3; Address of control table index 
00000000 ' GF 9s FB 4 : CALL 0°8 GBR INI_CONTROL 3 Initialise library 
2250 € . Bub 5 : Error if LBC 
; $3 | ; Call Librarian procedure to open Library file 
OC A6 OOF E 3§ PUSHAB MLFS$Q_FNAMDS(R6) 3 
OC A6- OOF 1 58 PUSHAB MLFS$Q_FNAMDS(R6) ; Address of resultant descriptor 
00 OD 4 59 PUSHL 7 3; No related file name 
QOOO'CF OF 6 60 PUSHAB W*MACSMLB_DEFNAM 3; Address of default name 
D A 61 PUSHL #0 ; No create options 
QOOOO'CF OF C $¢ PUSHAB W*MACSAB_TMPBUF 3; Address of file name 
4A oF 0 re 6 PUSHAB mor st ct CTINDEX<RG) ; Address of control table index 
00000000 ' GF 7 FB 024 64 CALLS OPEN 5 peer library file 
8 BEDO 024A 65 POPL sRESTORE R 
E8 024D 06 BLBS RO,60$ ;BRANCH IF GOOD OPEN 
0250 67 55$: 
56 DD O 29 68 PUSHL R6 3; Address of MLF 
QOOOOOOO'EF 01 FB 025 369 CALLS #1,MACSERK _LBROPEN : Report Ab gee open error 
O$2e 370 SRAC ERR MLBOPN NERR™ eos RT ete: WITHIN LISTING 
FO9F® 30 O25E 71 BsBur one y bee "he AND aalt WIT f STATUS 
FO9C® 31 0261 i MACSABORT_PASS1 :60 ABORT PAS 
0000' CF 66 OE 0264 73 60$: ORSQUE (R6) MeOMACSCL MLB_QUE s INSERT IN ony QUEUE 
0000' CF Be $568 $e puch W°MACSGL _MLB_CNT ~ : Increment macro Library count 


i] 
Address of resultant Length 
| 
| 
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50 §=©0000'CF 

60 60 

60 80 

56 0000°CF 

14 A6 

OC AG =OOFF &F 
10 A6 «78 AG 
18 A6é 

0000° CF 

0000° CF 

14 A6 
QOO00000'GF 04 
28 50 

OC A6 

OC A6 

00 

00000000 ' GF 

00 

0000' CF 


14 A6 
00000000°GF 07 


A 
OOOO'CF 66 
0000'CF 


56 
00000000°EF 01 
FD25 
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~SBTTL MACSSYSLIB_SET SET UP THE SYSTEM LIBRARY 


mo 
AO 
cw 


p++ 
: FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS C 
: THAT THE SYSTEM L 
: OF IT. THE MACRO 


SET:: 
A W*MACSGL_MLB_QUE ,RO : INIT THE MLB QUEUE 
(RO), (ROY 


RO eeee6e 
MOVAB W*MACSSYSLIB_MLF ,R6 3; Point to SYSLIB MLF entry 
6 ; Clear control table index 
MOVW MLF$Q_FNAMDS(R6) ; Initialise file 
MOVAL MLFST_FNAM(CR6S ,MLFSO_FNAMDS+4(R6) ; name descriptor 


> Call librarian procedure to initialise library 


PUSHAB MLFS$X_NAMBLK(R6) ; Address of NAM block 
; Address of type = MLB 
me NC 3; Address of function = READ 
PUSHAB MLFS$L_CTINDEX(R6) ; Address of control table index 
CALLS #4,G*CBRSINI_CONTROL 3 Initialise library 
BLBC RO,10$ 3; Error if LBC 


; Call Librarian procedure to open Library file 


‘ PUSHAB MLF$Q_FNAMDS(R6) 
PUSHAB LF SQ_FNAMDS(R6) 


PUSHAB atahincanien cia 


PU 

PUSHAB W*MACSSYSLIB_FNM 
PUSHAB mre CTINDER(R6) 
CALLS #7,G*CBRSOPEN 


Address of resultant Length 
Address of resultant descriptor 

No related file name 

Address of default name descriptor 
No create options 

Address of file name descriptor 
Address of control table index 
Open Library file 

BLBC :I1F LBC THEN ERROR 

INSQUE (R6),W°MACSGL MLB_QUE s INSERT IN MLB QUEUE 


puct W*MACSGL_MLB_CNT : Increment macro Library count 
10$: 

PUSHL R6 ; Address of MLF 

CALLS #1,MACSERR_LBROPEN ; Report Library open error 


BRW MACSLAST_CRANCE : and go die 
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DB 
DB 
DB 


~SBTTL ALLOCATE MLF BLOCK 
Functional description: 
This routine is called to allocate a blcok of memory for 


a MLF (Macro Reer ery File) entry. The allocated —: block 
is zeroed and the NAM block and file name descriptors initialised. 


Inputs: 
: None 

; Outputs: 

3 R6 = Address of MLF 
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MACSALL_MLB_MLF:: 
00000000'GF O0000000'EF FA CALCG MLF_ARGLIST,G*LIBSGET_VM ; Get memory block 
1F 50 =«€9 BLBC RO, T0$ 3: Error if L 
56 OO000'CF 00 MOVL W*MACS$GL_BASEADDR,R6 3; Get base address of memory block 
66 0177 8F 00 6€ 00 2 MOVCS #0,(SP),#0,#MLFSK BLKSIZ,(R6) ; Clear 
Oc A6 «OOFF BF sa MOVW  #MLFSK_RSFNLN,MLFSQ FNAMDS(R6) ; Initialise file name 
10 A6 78 AB ODE MOVAL MLFST_FNAM(R6S MLF$O_FNAMDS+4(R6) ; descriptor 
002 8F 80 MOVW #<<NAMSC_BLN>@B+NAMSC_BID>,- ; Identify NAM block 
18 A6 MLF$X_NAMBLK(R6) 
05 108 RSB 
OOOO'CF OO FB CALLS #0,W*MACSERR_NOMEM_0 ; Report the error 
FCFO" 31 BRW MACSLAST_CHANCE : and go die 
~END 
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CHRSM 
DINTEGER 
DIUP 

DLUP 
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CHKLPND 
COMPEXPR 
NTYPEPC 
NUL CHR 
OBJXST 
OPNDCHK 
OPRND 
OPTVFLIDX 
UPDF IL 
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FLG$V_ 


MACSMACLIB 
Symbol table 
FLGSV 

FLGS$V 

FLGS$V 

FLG 

FLG 

FLGS$V 

FLGS$V 

FLG$V 
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Symbol table Breen abe Oi :ab588 PAACKO see iMAch Ge souRs1 (8) | 
F KLINK s 85 | 
nibs : ste ne = snot 
INTS“STRSB s KLONG : ¢ | 
INTS“STRSW . KMACRO : 50 | 
INTS“STRU s CALL : 51 | 
INTS"STSB . § KMDELE : | 
INTS"STSW ® ex : ; | 
INTS~SUB s A KNARG = 90000068 | 
INTS “SUE . 9 KNCHR = 90000064 
INTS_WRN = 8 KNC > : 5 
INTS_XOR = 8 et : $¢ 
KADDRESS = KN ve . 3 
ALIGN s A KOCT = 9000008 
KASCIO = §0000078 = 00000075 
KASCID = 000 OPDEF = 9000007 
KASCII = 90000084 KPACKED = 90000036 
SereAY = Bo000037 PRGAT = 09000092 
KBCKB . 09009 40 KPSECT ° 0900066 
KBLKD = 00000041 KQUAD = 90000030 
KBLKF = 00000042 KREF 1 = 90900060 
KBLKG = 90000076 KREF 16 = 90000084 
KBLKH = 444 7F KREF2 : 4444 e 
KBLKL = 90000043 KREFG ef 
= 00000080 KREFS = 000000 
KBLKO = 00000044 KREPT = 90000040 
KBYTE s 09000038 rave = 00000068 
KEROS : = 00000068 
KCROSS = 90000079 KSBTTL = 90000068 
KDEBUG = 00000055 KSGNB : , 
= 00000078 KSGNW = 00000070 
pane : Hesse He : HBSS 
> = 73 
KENABL = 0000005 WARN = 90000073 
KEND = 94444 76 KWEAK . Seon eS 
KENDC = 0000004 KWORD : 
KENDA = 00000088 KXFER . 00000077 ote 
ENDR = 0000004F LBRSGET_RECO easeeees X05 
KENTRY = 00000058 CBRSINI~CONTROL eeneenes x OS 
KERROR = 00000071 LBRSLOORUP_KEY etestese X05 
KEXTR = 90000086 tOBScET VM fecceees eo 
KFIELD ° R CIBRY ~ O00001BB RG 98 
KELOAT = Oo000038 LST$G. MACRODEF teeeneee X05 
At > : = 00000086 
Ke bet . STEP ob paGE * agonoase 
KHFLOAT = a5 LSTSk ATTTCE Sif = 00000028 ‘ ; 
KIDENT s 6A RACSABORT eteseess X05 
KIF = 0000004 RACSAB_L IRE eteeees X05 
He : Boia Rie —— i 
ya ; rl MAC A eeeeeree yt 2 
KIIFe . ‘ MACSALL-MCB.MLF 00000208 RG 
KINCLUDE . SF HACSAL_PRAHSHTB eeteeeee 
KIRP - ip MACSAL“UMCHSHTB eenneene 
KIRPC ’ é MACSDER. 1. PAGE eteneens 
KLIBRARY = 6 MACSERRORPT 
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Symbol table =SEP=1984 01:48:5 MACRO. SRCJMACLIB.MAR; 1 (8) 
MACSERR_LBROPEN eeeeeree x OBJ$K_BUFSIZ = 
MACSERR-NOMEM_O eeereeee =X OPF SM_LASTOPR s 
MACSGE TCHR eeeereee 8X OPFSM-OPTEXP = 
MACSGET_MLB_LIN 0000017F RG OPFSV_-LASTOPR = D 
MACSGL_BASEADDR eeeeenee =X OPF$V_OPTEXP s ¢ 
MACSGL-ERRPT eeeeeeee § x PSCS$B_NAME 4 
MACSGL_ERRPTX eeeeenee =X 5 PSC$B_SEG C 
MACSGL_INPUTP eeeeeeee § 6X 5 PSC$B_UNUSED 8 
MACS$GL_LIBFUNC eeneeeee = xX = 05 PSCS$K-BLKSIZ 1 
MACSGL_LIBTYPE eeereree = X 05 PSCS$K_NO_OPTNS = 00 OA | 
MACSGL_LINELN eeeeeree = X 05 PSC$L-CURLOC 000000F 
MACSGL_LINENUM eeeeeeee =X 9 PSCSL-LINK 900 09 
MACSGL_LINEPT aeeeenee 6X 5 PSCSL_MAXLGTH 
MACSGL_MACPTR eeeneeee =X 05 PSCSM_ABS = FREFFFF? 
MACSGL_MLB_CNT eeeeeeee =X = 05 PSCSM_ALIGNFLG = 99004000 
MACSGL_MLB_GET eeeneeee =X = 05 PSCSM_ALLOPTNS = Q00003FF 
MACSGL_MLB_MDF eeeneeee x 5 PSCS$M_BYTE = 00004000 
MACS$GL_MLB_ QUE tereeeee x 5 PSCSM_CON = Oeeeee 
MACSGL_MLFPTR eereeeee =X 5 PSCS$M_DEF AULT = 000001C 
MACSGL_TXTRFA eeeeeeee =X = O05 PSCSM_EXE = 000000C0 
MAC$GQ_LINEBFDS eeaeeree =X = 05 PSCSM_GBL = 00000010 
MACSIMPLMCALL 00000047 RG 05 PSCSM~LCL = FFFFFFEF 
MACSINTOUT 2 LW weeeeeee =X | 05 PSCSM_LIB = BON 088 
MACSLAST_CRANCE tereeeee XxX 05 PSCS$M_LONG = 00004800 
MACSMLB_DEFNAM eeeeeeee =X 05 PSCSM_NOEXE = FFFFFFBE 
MACSSKIPSP teeneeee = X 05 PSC$M_NOPIC = FFFFFFFE 
MACSSRCSYMTAB eeeneree = X 05 PSCSM_NORD = FEFFFFZF 
MACSSYMSCNUP eereeeee Xx 05 PSCSM_NOSHR = FEFFFFDF 
MACSSYSLIB_DFN tereeeee xX 05 PSCSM_NOVEC = FREFFDFF 
MACSSYSLIB_FNM teenenee = X 05 PSCSM_NOWRT = FRFFFEFF 
MACSSYSLIB_MLF eeeeeree§ Xx 05 PSC$M_OVR = 00000004 
MACSSYSLIB’ SET 0009026E RG 05 PSC$M_PAGE = 00006400 
MACSTMPSYMDS 44454 k 04 PSCSM_PIC = 00000001 
MACS_CANTLOCMAC = 007D905A PSC$M_QUAD = 00004C00 
MACS_OIRSYN = 007D906A PSCSM_RD = 00000080 
MACS_MACLBFMTER = 007D913A PSCSM_REL = 00000008 
MAC$_MLBOPNERR = 007D923A PSCSM_SHR = 00000020 
MACS _UNTERMARG = 007D922A PSCSM_USR = FRFFFFFD 
MAC aeeeeeee = =X 8 05 PSCSM_VEC = 0080 0e 88 
MAC = 0000000D PSCSM_WORD = 00004400 
MAC_LIB_FMT_ERR 8 O0) 4R 05 PSCSM_WRT z 900001 80 
MAC” SUBSYS = $ 07D PSC$S_ALIGNMENT = 00000004 
MCALL 0 3000 RG 05 PSCSV_ALIGNFLG = QQ000000E 
MLFSK_BLKSIZ 000) PSC$V_ALIGNMENT = 3000 A 
MLF SK-RSFNLN = FF PSCS$V_EXE = 6 
MLFSL-CTINDEX 14 SC$V_GBL z 00004 
MLF SL-MCDEF 4 PSC$V_LIB = 00 1 
MLFS$L_QL INK PSC$V_OVR = 
MLF$Q"-FNAMDS PSC$V_PIC 2 
MLFST_FN PSC$V_RD = 
MLF SX" NAMBLK 1 PSC$V_REL = ; 
MLF_ARGLIST R 05 PSC$V"SHR = 
SEE ok ee ee R PSC$V_VEC = 9 
C_B10 r PSCS$V_WRT = 8 
NAMSC~BLN = PSC$W"FLAG 
NAMSC”MAXRSS = tii PSC$W_OPTIONS 4 
NEXT_ALB 0 58 R 05 ROX$V_BINARY = 00 
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ROXSV_DECIMAL 
RDX$V_ DOUBLE 
RDXS$V_FLOAT 
ROX$V_GFLOAT 
ROXSV_HEX 
RDOXSV_HFLOAT 
ROX$V_OCTAL 
REGS PC 

REG 
SEM 
STBSK_PG_ MISS 
SYMS$B_ NAME 


SYMSM_REF 
SYMSM~RELPSECT 
“SUPR 


SYM$V~GLOBL 
SYMSV~LOCAL 
SYM$V~ODBG 
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SYMSV-REF 
SYMSV-RELPSECT 
SYMSV~SUPR 
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A 
C 
DEF 
SYM$V_DELMAC 
V_EPT 
SYMSV_EXTRN 
GL 
008 
E 
-SUP 
SYMSV_WEAK 
SYMSV_XCRF 
SYMSW_FLAG 
= 
x1 = 
x2 = 


MACSMACLIB “MACRO LIBRARY PROCESSOR 197$60= 138% peor ee pies Macro V04-00 
Psect synopsis -SEP-1984 01:48:58 CMACRO.SRCJMACLIB.MAR;1 


domme ae or 


! Psect synopsis ! 


foewmooe cosmo eweam $ 


PSECT name Allocation PSECT No. Attributes 

- ABS. 8 6° ( a @eé 9. PIC uSR (CO ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . ( ) 1 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 00001 ( 375.) ¢ ( §°} PIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSRO_DATA 000001 ( ye ( -) NOPIC USR CON REL  GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
MACSRW_DATA 8 08 ¢ -) 04 ( 4.) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC LONG 
MACSRO_CODE_MAC 1 ( 784.) 05 ¢ 5.) NOPIC USR (CO REL GBL NOSHR EXE RD NOWRT NOVEC LONG 


pomns wos eeaneaw eS a + 
! Performance indicators ! 


$oee nsec tr awren wn eon ees eene a 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.04 0:00:01.80 
Command processing 188 §:00:00.39 00:09: 2:81 
Pass 287 Ss Oy 0:00:29.58 
Symbol table sort 5 0:00:00.98 00:00: g-30 
Pass 2 $9 0:00:01.29 B9:89: 0 
Symbol table output 60 0:00:00.26 00:00:01.51 
Psect synopsis output 2 0:00:00. 3 00:00:00.03 
Cross-reference output 0 00:00:00.0 00:00:00.00 
Assembler run totals 588 00:00:09.01 00:00:43.14 


The working set Limit was 1350 pages. 

55114 bytes (108 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1042 non-local and 20 local symbols. 
457 source Lines were read in Pass 1, producing 24 object records in Pass 2. 

17 pages of virtual memory were used to define 16 macros. 


+ 
H Macro Library statistics : 


Macro Library name Macros defined 
“BS 2 SEOUATE = PACA. OB WAACHO 1,8; 11 
$255$DUA28: CSYSLIBJSTARLET.MLB; 2 

TOTALS <all Libraries) 1 


1142 GETS were required to define 19 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MACLIB/OBJ=OBJ$:MACLIB MSRC$:MACLIB/UPDATE=(ENHS:MACLIB) +LI1B$:MACRO/LIB 
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